/ MaxiMac 1999 October / MaxiMac 95.iso / KitWeb / Club-Internet / Hotline / Scripts Modems / Aware / Psion Dacom Gold Card V34

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 19 50 73 69 6f 6e 20 | 44 61 63 6f 6d 20 47 6f |..Psion |Dacom Go|
|00000010| 6c 64 20 43 61 72 64 20 | 56 33 34 00 00 00 00 00 |ld Card |V34.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6d 6c 74 73 73 6c 6e | 6b 00 00 00 00 00 00 00 |.mltssln|k.......|
|00000050| 00 00 00 00 00 24 bc 00 | 00 01 40 b0 b7 10 2c b0 |.....$..|..@...,.|
|00000060| b7 1e 46 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..F.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 96 80 00 00 |........|........|
|00000080| 21 20 20 48 61 79 65 73 | 20 4f 70 74 69 6d 61 20 |!  Hayes| Optima |
|00000090| 32 38 38 0d 21 09 41 75 | 74 68 6f 72 3a 09 4b 72 |288.!.Au|thor:.Kr|
|000000a0| 69 73 20 4b 72 65 75 74 | 7a 6d 61 6e 0d 21 0d 21 |is Kreut|zman.!.!|
|000000b0| 09 43 6f 70 79 72 69 67 | 68 74 3a 09 a9 20 31 39 |.Copyrig|ht:.. 19|
|000000c0| 39 31 2d 31 39 39 36 20 | 41 70 70 6c 65 20 43 6f |91-1996 |Apple Co|
|000000d0| 6d 70 75 74 65 72 2c 20 | 49 6e 63 2e 09 41 6c 6c |mputer, |Inc..All|
|000000e0| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|000000f0| 2e 0d 21 0d 21 09 72 65 | 76 69 73 69 6f 6e 20 68 |..!.!.re|vision h|
|00000100| 69 73 74 6f 72 79 3a 0d | 21 09 09 76 32 2e 31 09 |istory:.|!..v2.1.|
|00000110| 61 73 20 73 68 69 70 70 | 65 64 20 77 69 74 68 20 |as shipp|ed with |
|00000120| 74 68 65 20 41 52 41 20 | 32 2e 31 0d 21 20 20 20 |the ARA |2.1.!   |
|00000130| 20 20 20 20 76 32 2e 32 | 09 75 70 64 61 74 65 20 |    v2.2|.update |
|00000140| 43 41 52 52 49 45 52 2f | 43 4f 4e 4e 45 43 54 20 |CARRIER/|CONNECT |
|00000150| 70 61 72 73 69 6e 67 0d | 21 0d 21 20 20 27 6d 6c |parsing.|!.!  'ml|
|00000160| 74 73 27 20 72 65 73 6f | 75 72 63 65 20 69 6e 66 |ts' reso|urce inf|
|00000170| 6f 20 66 6f 72 20 74 68 | 69 73 20 6d 6f 64 65 6d |o for th|is modem|
|00000180| 3a 0d 21 20 20 20 20 62 | 79 74 65 20 31 20 3d 3d |:.!    b|yte 1 ==|
|00000190| 20 30 31 20 2d 3e 20 6d | 6f 64 65 6d 20 48 41 53 | 01 -> m|odem HAS|
|000001a0| 20 62 75 69 6c 74 2d 69 | 6e 20 65 72 72 6f 72 20 | built-i|n error |
|000001b0| 63 6f 72 72 65 63 74 69 | 6f 6e 20 70 72 6f 74 6f |correcti|on proto|
|000001c0| 63 6f 6c 73 0d 21 20 20 | 20 20 62 79 74 65 20 32 |cols.!  |  byte 2|
|000001d0| 20 3d 3d 20 30 31 20 2d | 3e 20 6d 6f 64 65 6d 20 | == 01 -|> modem |
|000001e0| 48 41 53 20 62 75 69 6c | 74 2d 69 6e 20 64 61 74 |HAS buil|t-in dat|
|000001f0| 61 20 63 6f 6d 70 72 65 | 73 73 69 6f 6e 20 70 72 |a compre|ssion pr|
|00000200| 6f 74 6f 63 6f 6c 73 0d | 21 20 20 20 20 62 79 74 |otocols.|!    byt|
|00000210| 65 20 33 20 3d 3d 20 32 | 35 35 20 2d 3e 20 6d 61 |e 3 == 2|55 -> ma|
|00000220| 78 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 68 61 72 |x number| of char|
|00000230| 73 20 69 6e 20 76 61 72 | 73 74 72 20 37 0d 21 20 |s in var|str 7.! |
|00000240| 20 20 20 62 79 74 65 20 | 34 20 3d 3d 20 32 35 35 |   byte |4 == 255|
|00000250| 20 2d 3e 20 6d 61 78 20 | 6e 75 6d 62 65 72 20 6f | -> max |number o|
|00000260| 66 20 63 68 61 72 73 20 | 69 6e 20 76 61 72 73 74 |f chars |in varst|
|00000270| 72 20 38 0d 21 20 20 20 | 20 62 79 74 65 20 35 20 |r 8.!   | byte 5 |
|00000280| 3d 3d 20 32 35 35 20 2d | 3e 20 6d 61 78 20 6e 75 |== 255 -|> max nu|
|00000290| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 73 20 69 6e |mber of |chars in|
|000002a0| 20 76 61 72 73 74 72 20 | 39 0d 21 09 0d 40 4f 52 | varstr |9.!..@OR|
|000002b0| 49 47 49 4e 41 54 45 0d | 40 41 4e 53 57 45 52 0d |IGINATE.|@ANSWER.|
|000002c0| 21 0d 21 20 2d 2d 2d 2d | 20 49 6e 69 74 69 61 6c |!.! ----| Initial|
|000002d0| 20 6d 6f 64 65 6d 20 73 | 65 74 75 70 20 2d 2d 2d | modem s|etup ---|
|000002e0| 2d 0d 21 0d 21 20 53 65 | 74 20 73 65 72 69 61 6c |-.!.! Se|t serial|
|000002f0| 20 70 6f 72 74 20 73 70 | 65 65 64 20 64 65 70 65 | port sp|eed depe|
|00000300| 6e 64 69 6e 67 20 75 70 | 6f 6e 20 74 68 65 20 63 |nding up|on the c|
|00000310| 6f 6d 70 72 65 73 73 69 | 6f 6e 20 66 6c 61 67 0d |ompressi|on flag.|
|00000320| 21 09 41 20 68 69 67 68 | 65 72 20 72 61 74 65 20 |!.A high|er rate |
|00000330| 77 69 74 68 20 63 6f 6d | 70 72 65 73 73 69 6f 6e |with com|pression|
|00000340| 20 6f 6e 20 74 6f 20 68 | 61 6e 64 6c 65 20 65 78 | on to h|andle ex|
|00000350| 70 61 6e 64 65 64 20 64 | 61 74 61 20 66 72 6f 6d |panded d|ata from|
|00000360| 20 74 68 65 20 6d 6f 64 | 65 6d 0d 21 09 41 20 6c | the mod|em.!.A l|
|00000370| 6f 77 65 72 20 72 61 74 | 65 20 63 6c 6f 73 65 72 |ower rat|e closer|
|00000380| 20 74 6f 20 74 68 65 20 | 44 43 45 20 77 68 65 6e | to the |DCE when|
|00000390| 20 63 6f 6d 70 72 65 73 | 73 69 6f 6e 20 69 73 20 | compres|sion is |
|000003a0| 6f 66 66 0d 21 20 0d 69 | 66 73 74 72 20 35 20 31 |off.! .i|fstr 5 1|
|000003b0| 20 22 30 22 0d 73 65 72 | 72 65 73 65 74 20 35 37 | "0".ser|reset 57|
|000003c0| 36 30 30 2c 20 30 2c 20 | 38 2c 20 31 0d 6a 75 6d |600, 0, |8, 1.jum|
|000003d0| 70 20 32 0d 21 0d 40 4c | 41 42 45 4c 20 31 0d 73 |p 2.!.@L|ABEL 1.s|
|000003e0| 65 72 72 65 73 65 74 20 | 33 38 34 30 30 2c 20 30 |erreset |38400, 0|
|000003f0| 2c 20 38 2c 20 31 0d 21 | 0d 40 4c 41 42 45 4c 20 |, 8, 1.!|.@LABEL |
|00000400| 32 0d 68 73 72 65 73 65 | 74 20 30 20 30 20 30 20 |2.hsrese|t 0 0 0 |
|00000410| 30 20 30 20 30 0d 73 65 | 74 74 72 69 65 73 20 30 |0 0 0.se|ttries 0|
|00000420| 0d 21 0d 21 20 47 65 74 | 20 74 68 65 20 6d 6f 64 |.!.! Get| the mod|
|00000430| 65 6d 27 73 20 61 74 74 | 65 6e 74 69 6f 6e 0d 21 |em's att|ention.!|
|00000440| 0d 6d 61 74 63 68 63 6c | 72 0d 6d 61 74 63 68 73 |.matchcl|r.matchs|
|00000450| 74 72 20 31 20 33 20 22 | 4f 4b 5c 31 33 5c 31 30 |tr 1 3 "|OK\13\10|
|00000460| 22 0d 77 72 69 74 65 20 | 22 41 54 5c 31 33 22 0d |".write |"AT\13".|
|00000470| 6d 61 74 63 68 72 65 61 | 64 20 33 30 0d 21 0d 40 |matchrea|d 30.!.@|
|00000480| 4c 41 42 45 4c 20 33 0d | 21 0d 21 20 53 65 74 75 |LABEL 3.|!.! Setu|
|00000490| 70 20 74 68 65 20 6d 6f | 64 65 6d 20 66 6f 72 20 |p the mo|dem for |
|000004a0| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 3a 0d 21 |the foll|owing:.!|
|000004b0| 20 20 20 52 65 73 65 74 | 20 74 6f 20 66 61 63 74 |   Reset| to fact|
|000004c0| 6f 72 79 20 73 65 74 74 | 69 6e 67 73 0d 21 20 20 |ory sett|ings.!  |
|000004d0| 20 53 74 61 6e 64 61 72 | 64 20 63 6f 6d 70 72 65 | Standar|d compre|
|000004e0| 73 73 69 6f 6e 2f 72 65 | 6c 69 61 62 6c 69 74 79 |ssion/re|liablity|
|000004f0| 0d 21 20 20 20 4c 6f 63 | 6b 20 73 65 72 69 61 6c |.!   Loc|k serial|
|00000500| 20 70 6f 72 74 20 73 70 | 65 65 64 0d 21 20 20 20 | port sp|eed.!   |
|00000510| 53 65 72 69 61 6c 20 70 | 6f 72 74 20 68 61 72 64 |Serial p|ort hard|
|00000520| 77 61 72 65 20 68 61 6e | 64 73 68 61 6b 69 6e 67 |ware han|dshaking|
|00000530| 2c 20 74 75 72 6e 20 6f | 66 66 20 73 6f 66 74 77 |, turn o|ff softw|
|00000540| 61 72 65 20 68 61 6e 64 | 73 68 61 6b 69 6e 67 0d |are hand|shaking.|
|00000550| 21 20 20 20 56 65 72 62 | 6f 73 65 20 72 65 73 70 |!   Verb|ose resp|
|00000560| 6f 6e 63 65 73 20 61 6e | 64 20 63 6f 6d 70 72 65 |onces an|d compre|
|00000570| 73 73 69 6f 6e 2f 70 72 | 6f 74 6f 63 6f 6c 20 72 |ssion/pr|otocol r|
|00000580| 65 73 75 6c 74 73 0d 21 | 20 20 20 43 4f 4e 4e 45 |esults.!|   CONNE|
|00000590| 43 54 20 72 65 74 75 72 | 6e 73 20 44 43 45 20 73 |CT retur|ns DCE s|
|000005a0| 70 65 65 64 0d 21 20 20 | 20 54 75 72 6e 20 6f 66 |peed.!  | Turn of|
|000005b0| 66 20 61 6e 73 77 65 72 | 69 6e 67 0d 21 20 20 20 |f answer|ing.!   |
|000005c0| 52 65 73 65 74 20 6f 72 | 20 72 65 74 75 72 6e 20 |Reset or| return |
|000005d0| 74 6f 20 63 6f 6d 6d 61 | 6e 64 20 6d 6f 64 65 20 |to comma|nd mode |
|000005e0| 6f 6e 20 44 54 52 20 74 | 6f 67 67 6c 65 20 28 6f |on DTR t|oggle (o|
|000005f0| 70 74 69 6f 6e 61 6c 29 | 0d 21 0d 6d 61 74 63 68 |ptional)|.!.match|
|00000600| 63 6c 72 0d 6d 61 74 63 | 68 73 74 72 20 31 20 34 |clr.matc|hstr 1 4|
|00000610| 20 20 20 22 4f 4b 5c 31 | 33 5c 31 30 22 0d 6d 61 |   "OK\1|3\10".ma|
|00000620| 74 63 68 73 74 72 20 32 | 20 31 30 31 20 22 45 52 |tchstr 2| 101 "ER|
|00000630| 52 4f 52 5c 31 33 5c 31 | 30 22 0d 77 72 69 74 65 |ROR\13\1|0".write|
|00000640| 20 22 41 54 26 46 57 32 | 53 30 3d 30 5c 31 33 22 | "AT&FW2|S0=0\13"|
|00000650| 0d 6d 61 74 63 68 72 65 | 61 64 20 33 30 0d 69 6e |.matchre|ad 30.in|
|00000660| 63 74 72 69 65 73 0d 69 | 66 74 72 69 65 73 20 33 |ctries.i|ftries 3|
|00000670| 20 31 30 31 0d 21 0d 21 | 20 52 65 73 65 74 20 74 | 101.!.!| Reset t|
|00000680| 68 65 20 4d 6f 64 65 6d | 20 6f 6e 20 73 65 74 75 |he Modem| on setu|
|00000690| 70 20 66 61 69 6c 75 72 | 65 0d 21 0d 44 54 52 43 |p failur|e.!.DTRC|
|000006a0| 6c 65 61 72 0d 70 61 75 | 73 65 20 35 0d 44 54 52 |lear.pau|se 5.DTR|
|000006b0| 53 65 74 0d 66 6c 75 73 | 68 0d 6a 75 6d 70 20 33 |Set.flus|h.jump 3|
|000006c0| 0d 21 0d 21 0d 40 4c 41 | 42 45 4c 20 34 0d 21 20 |.!.!.@LA|BEL 4.! |
|000006d0| 56 61 72 73 74 72 69 6e | 67 20 34 20 2c 20 72 65 |Varstrin|g 4 , re|
|000006e0| 6c 69 61 62 6c 65 20 6c | 69 6e 6b 20 70 72 6f 74 |liable l|ink prot|
|000006f0| 6f 63 6f 6c 3a 0d 21 20 | 20 20 20 3d 20 30 2c 20 |ocol:.! |   = 0, |
|00000700| 68 61 6e 64 6c 65 64 20 | 62 79 20 63 6f 6d 70 75 |handled |by compu|
|00000710| 74 65 72 20 28 41 52 41 | 50 29 0d 21 20 20 20 20 |ter (ARA|P).!    |
|00000720| 3d 20 31 2c 20 68 61 6e | 64 6c 65 64 20 62 79 20 |= 1, han|dled by |
|00000730| 6d 6f 64 65 6d 20 28 50 | 50 50 29 0d 21 20 20 20 |modem (P|PP).!   |
|00000740| 20 3d 20 32 2c 20 4d 4e | 50 31 30 20 70 72 6f 74 | = 2, MN|P10 prot|
|00000750| 6f 63 6f 6c 20 28 43 65 | 6c 6c 75 6c 61 72 20 70 |ocol (Ce|llular p|
|00000760| 72 6f 74 6f 63 6f 6c 2c | 20 6e 6f 20 6c 6f 6e 67 |rotocol,| no long|
|00000770| 65 72 20 73 75 70 70 6f | 72 74 65 64 29 0d 69 66 |er suppo|rted).if|
|00000780| 73 74 72 20 34 20 35 20 | 22 31 22 0d 69 66 73 74 |str 4 5 |"1".ifst|
|00000790| 72 20 34 20 35 20 22 32 | 22 0d 21 0d 21 20 56 61 |r 4 5 "2|".!.! Va|
|000007a0| 72 73 74 72 69 6e 67 20 | 34 20 3d 3d 20 30 2c 20 |rstring |4 == 0, |
|000007b0| 74 75 72 6e 20 6f 66 66 | 20 72 65 6c 69 61 62 6c |turn off| reliabl|
|000007c0| 65 20 6c 69 6e 6b 20 70 | 72 6f 74 6f 63 6f 6c 20 |e link p|rotocol |
|000007d0| 69 6e 20 6d 6f 64 65 6d | 20 28 41 52 41 50 29 0d |in modem| (ARAP).|
|000007e0| 6d 61 74 63 68 63 6c 72 | 0d 6d 61 74 63 68 73 74 |matchclr|.matchst|
|000007f0| 72 20 31 20 39 20 22 4f | 4b 5c 31 33 5c 31 30 22 |r 1 9 "O|K\13\10"|
|00000800| 0d 77 72 69 74 65 20 22 | 41 54 26 51 36 5c 31 33 |.write "|AT&Q6\13|
|00000810| 22 0d 6d 61 74 63 68 72 | 65 61 64 20 33 30 0d 6a |".matchr|ead 30.j|
|00000820| 75 6d 70 20 31 30 31 0d | 21 0d 21 0d 40 4c 41 42 |ump 101.|!.!.@LAB|
|00000830| 45 4c 20 35 0d 21 20 56 | 61 72 73 74 72 69 6e 67 |EL 5.! V|arstring|
|00000840| 20 35 2c 20 63 6f 6d 70 | 72 65 73 73 69 6f 6e 20 | 5, comp|ression |
|00000850| 70 72 6f 74 6f 63 6f 6c | 3a 0d 21 20 20 20 20 3d |protocol|:.!    =|
|00000860| 20 30 2c 20 68 61 6e 64 | 6c 65 64 20 62 79 20 63 | 0, hand|led by c|
|00000870| 6f 6d 70 75 74 65 72 20 | 0d 21 20 20 20 20 3d 20 |omputer |.!    = |
|00000880| 31 2c 20 68 61 6e 64 6c | 65 64 20 62 79 20 6d 6f |1, handl|ed by mo|
|00000890| 64 65 6d 0d 69 66 73 74 | 72 20 35 20 39 20 22 31 |dem.ifst|r 5 9 "1|
|000008a0| 22 0d 21 0d 21 20 56 61 | 72 73 74 72 69 6e 67 20 |".!.! Va|rstring |
|000008b0| 35 20 3d 3d 20 30 2c 20 | 74 75 72 6e 20 6f 66 66 |5 == 0, |turn off|
|000008c0| 20 63 6f 6d 70 72 65 73 | 73 69 6f 6e 20 70 72 6f | compres|sion pro|
|000008d0| 74 6f 63 6f 6c 20 69 6e | 20 6d 6f 64 65 6d 2e 0d |tocol in| modem..|
|000008e0| 6d 61 74 63 68 63 6c 72 | 0d 6d 61 74 63 68 73 74 |matchclr|.matchst|
|000008f0| 72 20 31 20 39 20 22 4f | 4b 5c 31 33 5c 31 30 22 |r 1 9 "O|K\13\10"|
|00000900| 0d 77 72 69 74 65 20 22 | 41 54 53 34 36 3d 31 33 |.write "|ATS46=13|
|00000910| 36 5c 31 33 22 0d 6d 61 | 74 63 68 72 65 61 64 20 |6\13".ma|tchread |
|00000920| 33 30 0d 6a 75 6d 70 20 | 31 30 31 0d 21 0d 21 0d |30.jump |101.!.!.|
|00000930| 40 4c 41 42 45 4c 20 39 | 0d 21 20 56 61 72 73 74 |@LABEL 9|.! Varst|
|00000940| 72 69 6e 67 20 32 2c 20 | 6d 6f 64 65 6d 20 73 70 |ring 2, |modem sp|
|00000950| 65 61 6b 65 72 3a 0d 21 | 20 20 20 20 3d 20 30 2c |eaker:.!|    = 0,|
|00000960| 20 73 70 65 61 6b 65 72 | 20 6f 66 66 0d 21 20 20 | speaker| off.!  |
|00000970| 20 20 3d 20 31 2c 20 73 | 70 65 61 6b 65 72 20 6f |  = 1, s|peaker o|
|00000980| 6e 0d 69 66 73 74 72 20 | 32 20 31 33 20 22 31 22 |n.ifstr |2 13 "1"|
|00000990| 0d 70 61 75 73 65 20 35 | 0d 6d 61 74 63 68 63 6c |.pause 5|.matchcl|
|000009a0| 72 0d 6d 61 74 63 68 73 | 74 72 20 31 20 31 33 20 |r.matchs|tr 1 13 |
|000009b0| 22 4f 4b 5c 31 33 5c 31 | 30 22 0d 77 72 69 74 65 |"OK\13\1|0".write|
|000009c0| 20 22 41 54 4d 30 5c 31 | 33 22 0d 6d 61 74 63 68 | "ATM0\1|3".match|
|000009d0| 72 65 61 64 20 33 30 0d | 6a 75 6d 70 20 31 30 31 |read 30.|jump 101|
|000009e0| 0d 21 0d 21 20 4d 6f 64 | 65 6d 20 72 65 61 64 79 |.!.! Mod|em ready|
|000009f0| 2c 20 77 61 69 74 20 66 | 6f 72 20 61 20 63 61 6c |, wait f|or a cal|
|00000a00| 6c 20 6f 72 20 6f 72 69 | 67 69 6e 61 74 65 20 61 |l or ori|ginate a|
|00000a10| 20 63 61 6c 6c 0d 21 0d | 40 4c 41 42 45 4c 20 31 | call.!.|@LABEL 1|
|00000a20| 33 0d 69 66 41 4e 53 57 | 45 52 20 33 32 0d 21 0d |3.ifANSW|ER 32.!.|
|00000a30| 21 0d 21 20 2d 2d 2d 2d | 20 4f 72 69 67 69 6e 61 |!.! ----| Origina|
|00000a40| 74 69 6e 67 20 61 20 63 | 61 6c 6c 20 2d 2d 2d 2d |ting a c|all ----|
|00000a50| 0d 21 0d 21 20 56 61 72 | 73 74 72 69 6e 67 20 36 |.!.! Var|string 6|
|00000a60| 2c 20 64 69 61 6c 69 6e | 67 20 6d 6f 64 65 3a 0d |, dialin|g mode:.|
|00000a70| 21 20 20 20 20 3d 20 30 | 2c 20 6e 6f 72 6d 61 6c |!    = 0|, normal|
|00000a80| 20 64 69 61 6c 69 6e 67 | 0d 21 20 20 20 20 3d 20 | dialing|.!    = |
|00000a90| 31 2c 20 62 6c 69 6e 64 | 20 64 69 61 6c 69 6e 67 |1, blind| dialing|
|00000aa0| 0d 21 20 20 20 20 3d 20 | 32 2c 20 6d 61 6e 75 61 |.!    = |2, manua|
|00000ab0| 6c 20 64 69 61 6c 69 6e | 67 0d 21 20 20 20 20 6f |l dialin|g.!    o|
|00000ac0| 74 68 65 72 77 69 73 65 | 20 64 69 61 6c 20 61 73 |therwise| dial as|
|00000ad0| 20 41 52 41 20 76 65 72 | 73 69 6f 6e 20 31 2e 30 | ARA ver|sion 1.0|
|00000ae0| 0d 69 66 73 74 72 20 36 | 20 31 39 20 22 30 22 0d |.ifstr 6| 19 "0".|
|00000af0| 69 66 73 74 72 20 36 20 | 31 37 20 22 31 22 0d 69 |ifstr 6 |17 "1".i|
|00000b00| 66 73 74 72 20 36 20 31 | 35 20 22 32 22 0d 21 0d |fstr 6 1|5 "2".!.|
|00000b10| 21 20 44 69 61 6c 69 6e | 67 20 66 6f 72 20 41 52 |! Dialin|g for AR|
|00000b20| 41 20 76 65 72 73 69 6f | 6e 20 31 2e 30 0d 6e 6f |A versio|n 1.0.no|
|00000b30| 74 65 20 22 44 69 61 6c | 69 6e 67 20 5e 31 22 20 |te "Dial|ing ^1" |
|00000b40| 33 0d 77 72 69 74 65 20 | 22 41 54 44 5e 33 5e 31 |3.write |"ATD^3^1|
|00000b50| 5c 31 33 0d 6a 75 6d 70 | 20 33 32 0d 21 0d 40 4c |\13.jump| 32.!.@L|
|00000b60| 41 42 45 4c 20 31 35 0d | 21 20 44 69 73 70 6c 61 |ABEL 15.|! Displa|
|00000b70| 79 20 41 53 4b 20 64 69 | 61 6c 6f 67 20 77 69 74 |y ASK di|alog wit|
|00000b80| 68 20 6d 65 73 73 61 67 | 65 2e 20 20 47 6f 74 6f |h messag|e.  Goto|
|00000b90| 20 6c 61 62 65 6c 20 31 | 30 37 20 69 66 20 64 69 | label 1|07 if di|
|00000ba0| 61 6c 6f 67 20 63 61 6e | 63 65 6c 65 64 2e 0d 41 |alog can|celed..A|
|00000bb0| 53 4b 20 32 20 22 50 69 | 63 6b 20 75 70 20 74 68 |SK 2 "Pi|ck up th|
|00000bc0| 65 20 70 68 6f 6e 65 20 | 26 20 64 69 61 6c 20 5e |e phone |& dial ^|
|00000bd0| 31 2e 20 20 57 68 65 6e | 20 74 68 65 20 70 68 6f |1.  When| the pho|
|00000be0| 6e 65 20 72 69 6e 67 73 | 2c 20 63 6c 69 63 6b 20 |ne rings|, click |
|00000bf0| 4f 4b 20 74 68 65 6e 20 | 68 61 6e 67 20 75 70 2e |OK then |hang up.|
|00000c00| 22 20 31 30 37 0d 6e 6f | 74 65 20 22 4d 61 6e 75 |" 107.no|te "Manu|
|00000c10| 61 6c 20 64 69 61 6c 69 | 6e 67 20 69 6e 69 74 69 |al diali|ng initi|
|00000c20| 61 74 65 64 22 20 33 0d | 21 20 58 31 20 74 6f 20 |ated" 3.|! X1 to |
|00000c30| 69 67 6e 6f 72 65 20 64 | 69 61 6c 74 6f 6e 65 20 |ignore d|ialtone |
|00000c40| 26 20 62 75 73 79 2c 20 | 44 20 74 6f 20 64 69 61 |& busy, |D to dia|
|00000c50| 6c 2c 20 5c 5e 20 67 65 | 6e 65 72 61 74 65 73 20 |l, \^ ge|nerates |
|00000c60| 64 61 74 61 20 74 6f 6e | 65 0d 77 72 69 74 65 20 |data ton|e.write |
|00000c70| 22 41 54 58 31 44 5c 31 | 33 22 0d 6a 75 6d 70 20 |"ATX1D\1|3".jump |
|00000c80| 33 32 0d 21 0d 40 4c 41 | 42 45 4c 20 31 37 0d 6e |32.!.@LA|BEL 17.n|
|00000c90| 6f 74 65 20 22 44 69 61 | 6c 69 6e 67 20 77 69 74 |ote "Dia|ling wit|
|00000ca0| 68 6f 75 74 20 74 6f 6e | 65 22 20 33 0d 6d 61 74 |hout ton|e" 3.mat|
|00000cb0| 63 68 63 6c 72 0d 6d 61 | 74 63 68 73 74 72 20 31 |chclr.ma|tchstr 1|
|00000cc0| 20 31 39 20 22 4f 4b 5c | 31 33 5c 31 30 22 0d 21 | 19 "OK\|13\10".!|
|00000cd0| 20 58 31 20 74 6f 20 69 | 67 6e 6f 72 65 20 64 69 | X1 to i|gnore di|
|00000ce0| 61 6c 74 6f 6e 65 20 26 | 20 62 75 73 79 0d 77 72 |altone &| busy.wr|
|00000cf0| 69 74 65 20 22 41 54 58 | 31 5c 31 33 22 0d 6d 61 |ite "ATX|1\13".ma|
|00000d00| 74 63 68 72 65 61 64 20 | 33 30 0d 6a 75 6d 70 20 |tchread |30.jump |
|00000d10| 31 30 31 0d 21 0d 21 0d | 21 0d 40 4c 41 42 45 4c |101.!.!.|!.@LABEL|
|00000d20| 20 31 39 0d 21 20 44 69 | 73 70 6c 61 79 20 74 68 | 19.! Di|splay th|
|00000d30| 65 20 66 75 6c 6c 20 64 | 69 61 6c 73 74 72 69 6e |e full d|ialstrin|
|00000d40| 67 20 63 6f 6e 74 61 69 | 6e 65 64 20 69 6e 20 56 |g contai|ned in V|
|00000d50| 61 72 73 74 72 69 6e 67 | 20 31 0d 6e 6f 74 65 20 |arstring| 1.note |
|00000d60| 22 44 69 61 6c 69 6e 67 | 20 5e 31 22 20 33 0d 21 |"Dialing| ^1" 3.!|
|00000d70| 0d 21 20 56 61 72 73 74 | 72 69 6e 67 73 20 37 2c |.! Varst|rings 7,|
|00000d80| 20 38 20 61 6e 64 20 39 | 2c 20 63 6f 6e 74 61 69 | 8 and 9|, contai|
|00000d90| 6e 20 64 69 61 6c 73 74 | 72 69 6e 67 20 66 72 61 |n dialst|ring fra|
|00000da0| 67 6d 65 6e 74 73 0d 21 | 20 20 20 20 4c 6f 6e 67 |gments.!|    Long|
|00000db0| 20 70 68 6f 6e 65 20 6e | 75 6d 62 65 72 73 20 6d | phone n|umbers m|
|00000dc0| 61 79 20 6e 65 65 64 20 | 74 6f 20 62 65 20 73 70 |ay need |to be sp|
|00000dd0| 6c 69 74 20 69 6e 74 6f | 20 73 6d 61 6c 6c 65 72 |lit into| smaller|
|00000de0| 20 67 72 6f 75 70 73 0d | 21 20 20 20 20 66 6f 72 | groups.|!    for|
|00000df0| 20 74 68 65 20 6d 6f 64 | 65 6d 20 74 6f 20 75 73 | the mod|em to us|
|00000e00| 65 0d 21 0d 21 20 56 61 | 72 73 74 72 69 6e 67 20 |e.!.! Va|rstring |
|00000e10| 33 3a 20 20 22 70 22 20 | 66 6f 72 20 70 75 6c 73 |3:  "p" |for puls|
|00000e20| 65 20 26 20 22 74 22 20 | 66 6f 72 20 74 6f 6e 65 |e & "t" |for tone|
|00000e30| 20 64 69 61 6c 69 6e 67 | 0d 21 20 56 61 72 73 74 | dialing|.! Varst|
|00000e40| 72 69 6e 67 20 38 20 3d | 3d 20 62 6c 61 6e 6b 20 |ring 8 =|= blank |
|00000e50| 28 64 69 61 6c 73 74 72 | 69 6e 67 20 69 6e 20 76 |(dialstr|ing in v|
|00000e60| 61 72 73 74 72 69 6e 67 | 20 37 29 0d 21 20 56 61 |arstring| 7).! Va|
|00000e70| 72 73 74 72 69 6e 67 20 | 39 20 3d 3d 20 62 6c 61 |rstring |9 == bla|
|00000e80| 6e 6b 20 28 64 69 61 6c | 73 74 72 69 6e 67 20 69 |nk (dial|string i|
|00000e90| 6e 20 76 61 72 73 74 72 | 69 6e 67 73 20 37 20 26 |n varstr|ings 7 &|
|00000ea0| 20 38 29 0d 21 20 4f 74 | 68 65 72 77 69 73 65 20 | 8).! Ot|herwise |
|00000eb0| 28 64 69 61 6c 73 74 72 | 69 6e 67 20 69 6e 20 76 |(dialstr|ing in v|
|00000ec0| 61 72 73 74 72 69 6e 67 | 73 20 37 2c 20 38 20 26 |arstring|s 7, 8 &|
|00000ed0| 20 39 29 0d 21 20 5c 5e | 20 69 73 20 61 64 64 65 | 9).! \^| is adde|
|00000ee0| 64 20 74 6f 20 74 68 65 | 20 64 69 61 6c 73 74 72 |d to the| dialstr|
|00000ef0| 69 6e 67 20 74 6f 20 66 | 6f 72 63 65 20 74 68 65 |ing to f|orce the|
|00000f00| 20 6d 6f 64 65 6d 20 74 | 6f 20 67 65 6e 65 72 61 | modem t|o genera|
|00000f10| 74 65 20 61 20 64 61 74 | 61 20 74 6f 6e 65 0d 69 |te a dat|a tone.i|
|00000f20| 66 73 74 72 20 38 20 32 | 37 20 22 20 22 0d 69 66 |fstr 8 2|7 " ".if|
|00000f30| 73 74 72 20 39 20 32 34 | 20 22 20 22 0d 21 0d 21 |str 9 24| " ".!.!|
|00000f40| 20 20 57 72 69 74 65 20 | 64 69 61 6c 73 74 72 69 |  Write |dialstri|
|00000f50| 6e 67 20 69 6e 20 76 61 | 72 73 74 72 69 6e 67 73 |ng in va|rstrings|
|00000f60| 20 37 2c 20 38 20 26 20 | 39 0d 6d 61 74 63 68 63 | 7, 8 & |9.matchc|
|00000f70| 6c 72 0d 6d 61 74 63 68 | 73 74 72 20 31 20 32 31 |lr.match|str 1 21|
|00000f80| 20 22 4f 4b 5c 31 33 5c | 31 30 22 0d 77 72 69 74 | "OK\13\|10".writ|
|00000f90| 65 20 22 41 54 44 5e 33 | 5e 37 3b 5c 31 33 22 0d |e "ATD^3|^7;\13".|
|00000fa0| 6d 61 74 63 68 72 65 61 | 64 20 34 30 30 0d 6a 75 |matchrea|d 400.ju|
|00000fb0| 6d 70 20 31 30 31 0d 0d | 40 4c 41 42 45 4c 20 32 |mp 101..|@LABEL 2|
|00000fc0| 31 0d 6d 61 74 63 68 63 | 6c 72 0d 6d 61 74 63 68 |1.matchc|lr.match|
|00000fd0| 73 74 72 20 31 20 32 32 | 20 22 4f 4b 5c 31 33 5c |str 1 22| "OK\13\|
|00000fe0| 31 30 22 0d 77 72 69 74 | 65 20 22 41 54 44 5e 33 |10".writ|e "ATD^3|
|00000ff0| 5e 38 3b 5c 31 33 22 0d | 6d 61 74 63 68 72 65 61 |^8;\13".|matchrea|
|00001000| 64 20 34 30 30 0d 6a 75 | 6d 70 20 31 30 31 0d 0d |d 400.ju|mp 101..|
|00001010| 40 4c 41 42 45 4c 20 32 | 32 0d 77 72 69 74 65 20 |@LABEL 2|2.write |
|00001020| 22 41 54 44 5e 33 5e 39 | 5c 31 33 22 0d 6a 75 6d |"ATD^3^9|\13".jum|
|00001030| 70 20 33 32 0d 21 0d 21 | 0d 40 4c 41 42 45 4c 20 |p 32.!.!|.@LABEL |
|00001040| 32 34 0d 21 20 20 57 72 | 69 74 65 20 64 69 61 6c |24.!  Wr|ite dial|
|00001050| 73 74 72 69 6e 67 20 69 | 6e 20 76 61 72 73 74 72 |string i|n varstr|
|00001060| 69 6e 67 73 20 37 20 26 | 20 38 0d 6d 61 74 63 68 |ings 7 &| 8.match|
|00001070| 63 6c 72 0d 6d 61 74 63 | 68 73 74 72 20 31 20 32 |clr.matc|hstr 1 2|
|00001080| 35 20 22 4f 4b 5c 31 33 | 5c 31 30 22 0d 77 72 69 |5 "OK\13|\10".wri|
|00001090| 74 65 20 22 41 54 44 5e | 33 5e 37 3b 5c 31 33 22 |te "ATD^|3^7;\13"|
|000010a0| 0d 6d 61 74 63 68 72 65 | 61 64 20 34 30 30 0d 6a |.matchre|ad 400.j|
|000010b0| 75 6d 70 20 31 30 31 0d | 0d 40 4c 41 42 45 4c 20 |ump 101.|.@LABEL |
|000010c0| 32 35 0d 77 72 69 74 65 | 20 22 41 54 44 5e 33 5e |25.write| "ATD^3^|
|000010d0| 38 5c 31 33 22 0d 6a 75 | 6d 70 20 33 32 0d 21 0d |8\13".ju|mp 32.!.|
|000010e0| 40 4c 41 42 45 4c 20 32 | 37 0d 21 20 20 57 72 69 |@LABEL 2|7.!  Wri|
|000010f0| 74 65 20 64 69 61 6c 73 | 74 72 69 6e 67 20 69 6e |te dials|tring in|
|00001100| 20 76 61 72 73 74 72 69 | 6e 67 20 37 0d 77 72 69 | varstri|ng 7.wri|
|00001110| 74 65 20 22 41 54 44 5e | 33 5e 37 5c 31 33 22 0d |te "ATD^|3^7\13".|
|00001120| 21 0d 21 0d 21 20 20 20 | 20 2d 2d 2d 2d 20 43 6f |!.!.!   | ---- Co|
|00001130| 6e 6e 65 63 74 69 6f 6e | 20 72 65 73 70 6f 6e 63 |nnection| responc|
|00001140| 65 20 2d 2d 2d 2d 0d 21 | 0d 21 20 54 68 65 20 66 |e ----.!|.! The f|
|00001150| 6f 6c 6c 6f 77 69 6e 67 | 20 73 65 63 74 69 6f 6e |ollowing| section|
|00001160| 20 77 69 6c 6c 20 70 61 | 72 73 65 20 6d 6f 64 65 | will pa|rse mode|
|00001170| 6d 20 72 65 73 70 6f 6e | 63 65 73 20 6f 66 20 74 |m respon|ces of t|
|00001180| 77 6f 20 74 79 70 65 73 | 3a 0d 21 20 20 20 31 29 |wo types|:.!   1)|
|00001190| 20 43 41 52 52 49 45 52 | 20 78 78 78 2c 20 50 52 | CARRIER| xxx, PR|
|000011a0| 4f 54 4f 43 4f 4c 3a 20 | 79 79 79 2c 20 43 4f 4d |OTOCOL: |yyy, COM|
|000011b0| 50 52 45 53 53 49 4f 4e | 3a 20 79 79 79 2c 20 43 |PRESSION|: yyy, C|
|000011c0| 4f 4e 4e 45 43 54 20 78 | 78 78 0d 21 20 20 20 32 |ONNECT x|xx.!   2|
|000011d0| 29 20 43 4f 4e 4e 45 43 | 54 20 78 78 78 2f 79 79 |) CONNEC|T xxx/yy|
|000011e0| 79 0d 21 0d 40 4c 41 42 | 45 4c 20 33 32 0d 73 65 |y.!.@LAB|EL 32.se|
|000011f0| 74 74 72 69 65 73 20 30 | 0d 40 4c 41 42 45 4c 20 |ttries 0|.@LABEL |
|00001200| 33 33 0d 6d 61 74 63 68 | 63 6c 72 0d 6d 61 74 63 |33.match|clr.matc|
|00001210| 68 73 74 72 20 20 31 20 | 38 31 20 20 22 52 49 4e |hstr  1 |81  "RIN|
|00001220| 47 5c 31 33 5c 31 30 22 | 0d 6d 61 74 63 68 73 74 |G\13\10"|.matchst|
|00001230| 72 20 20 32 20 31 30 32 | 20 22 4e 4f 20 44 49 41 |r  2 102| "NO DIA|
|00001240| 4c 54 4f 4e 45 5c 31 33 | 5c 31 30 22 0d 6d 61 74 |LTONE\13|\10".mat|
|00001250| 63 68 73 74 72 20 20 33 | 20 31 30 33 20 22 4e 4f |chstr  3| 103 "NO|
|00001260| 20 43 41 52 52 49 45 52 | 22 0d 6d 61 74 63 68 73 | CARRIER|".matchs|
|00001270| 74 72 20 20 34 20 31 30 | 33 20 22 45 52 52 4f 52 |tr  4 10|3 "ERROR|
|00001280| 5c 31 33 5c 31 30 22 0d | 6d 61 74 63 68 73 74 72 |\13\10".|matchstr|
|00001290| 20 20 35 20 31 30 34 20 | 22 42 55 53 59 5c 31 33 |  5 104 |"BUSY\13|
|000012a0| 5c 31 30 22 0d 6d 61 74 | 63 68 73 74 72 20 20 36 |\10".mat|chstr  6|
|000012b0| 20 31 30 35 20 22 4e 4f | 20 41 4e 53 57 45 52 5c | 105 "NO| ANSWER\|
|000012c0| 31 33 5c 31 30 22 0d 6d | 61 74 63 68 73 74 72 20 |13\10".m|atchstr |
|000012d0| 20 37 20 33 35 20 20 22 | 43 4f 4e 4e 45 43 54 22 | 7 35  "|CONNECT"|
|000012e0| 0d 6d 61 74 63 68 73 74 | 72 20 20 38 20 33 34 20 |.matchst|r  8 34 |
|000012f0| 20 22 43 41 52 52 49 45 | 52 22 0d 6d 61 74 63 68 | "CARRIE|R".match|
|00001300| 73 74 72 20 20 39 20 36 | 32 20 20 22 50 52 4f 54 |str  9 6|2  "PROT|
|00001310| 4f 43 4f 4c 3a 20 4c 41 | 50 22 0d 6d 61 74 63 68 |OCOL: LA|P".match|
|00001320| 73 74 72 20 31 30 20 36 | 32 20 20 22 50 52 4f 54 |str 10 6|2  "PROT|
|00001330| 4f 43 4f 4c 3a 20 4d 4e | 50 22 0d 6d 61 74 63 68 |OCOL: MN|P".match|
|00001340| 73 74 72 20 31 31 20 36 | 32 20 20 22 50 52 4f 54 |str 11 6|2  "PROT|
|00001350| 4f 43 4f 4c 3a 20 41 4c | 54 22 0d 6d 61 74 63 68 |OCOL: AL|T".match|
|00001360| 73 74 72 20 31 32 20 36 | 37 20 20 22 43 4f 4d 50 |str 12 6|7  "COMP|
|00001370| 52 45 53 53 49 4f 4e 3a | 20 56 22 0d 6d 61 74 63 |RESSION:| V".matc|
|00001380| 68 73 74 72 20 31 33 20 | 36 37 20 20 22 43 4f 4d |hstr 13 |67  "COM|
|00001390| 50 52 45 53 53 49 4f 4e | 3a 20 4d 4e 50 35 22 0d |PRESSION|: MNP5".|
|000013a0| 6d 61 74 63 68 73 74 72 | 20 31 34 20 36 37 20 20 |matchstr| 14 67  |
|000013b0| 22 43 4f 4d 50 52 45 53 | 53 49 4f 4e 3a 20 43 4c |"COMPRES|SION: CL|
|000013c0| 41 53 53 22 0d 6d 61 74 | 63 68 72 65 61 64 20 37 |ASS".mat|chread 7|
|000013d0| 30 30 0d 69 66 41 4e 53 | 57 45 52 20 33 32 0d 6a |00.ifANS|WER 32.j|
|000013e0| 75 6d 70 20 31 30 35 0d | 21 0d 21 20 20 43 41 52 |ump 105.|!.!  CAR|
|000013f0| 52 49 45 52 20 70 61 72 | 73 69 6e 67 0d 21 0d 40 |RIER par|sing.!.@|
|00001400| 4c 41 42 45 4c 20 33 34 | 0d 6a 73 72 20 33 38 0d |LABEL 34|.jsr 38.|
|00001410| 69 6e 63 74 72 69 65 73 | 0d 6a 75 6d 70 20 33 33 |inctries|.jump 33|
|00001420| 0d 21 0d 21 20 20 43 4f | 4e 4e 45 43 54 20 70 61 |.!.!  CO|NNECT pa|
|00001430| 72 73 69 6e 67 20 2d 20 | 64 6f 20 6e 6f 74 20 70 |rsing - |do not p|
|00001440| 61 72 73 65 20 72 61 74 | 65 20 69 66 20 43 41 52 |arse rat|e if CAR|
|00001450| 52 49 45 52 20 73 65 65 | 6e 0d 21 0d 40 4c 41 42 |RIER see|n.!.@LAB|
|00001460| 45 4c 20 33 35 0d 69 66 | 74 72 69 65 73 20 31 20 |EL 35.if|tries 1 |
|00001470| 36 31 0d 6a 73 72 20 33 | 38 0d 6a 75 6d 70 20 36 |61.jsr 3|8.jump 6|
|00001480| 31 0d 21 0d 21 20 20 50 | 61 72 73 65 20 43 4f 4e |1.!.!  P|arse CON|
|00001490| 4e 45 43 54 2f 43 41 52 | 52 49 45 52 20 72 61 74 |NECT/CAR|RIER rat|
|000014a0| 65 20 73 75 62 72 6f 75 | 74 69 6e 65 0d 21 20 20 |e subrou|tine.!  |
|000014b0| 20 20 32 34 30 30 20 61 | 6e 64 20 34 38 30 30 20 |  2400 a|nd 4800 |
|000014c0| 68 61 76 65 20 74 77 6f | 20 65 6e 74 72 69 65 73 |have two| entries|
|000014d0| 20 65 61 63 68 0d 21 20 | 20 20 20 74 6f 20 64 69 | each.! |   to di|
|000014e0| 73 74 69 6e 67 75 69 73 | 68 20 74 68 65 6d 20 66 |stinguis|h them f|
|000014f0| 72 6f 6d 20 32 34 30 30 | 30 20 61 6e 64 20 34 38 |rom 2400|0 and 48|
|00001500| 30 30 30 0d 21 0d 40 4c | 41 42 45 4c 20 33 38 0d |000.!.@L|ABEL 38.|
|00001510| 6d 61 74 63 68 63 6c 72 | 0d 6d 61 74 63 68 73 74 |matchclr|.matchst|
|00001520| 72 20 20 31 20 34 30 20 | 22 32 34 30 30 5c 31 33 |r  1 40 |"2400\13|
|00001530| 22 0d 6d 61 74 63 68 73 | 74 72 20 20 32 20 34 30 |".matchs|tr  2 40|
|00001540| 20 22 32 34 30 30 2f 22 | 0d 6d 61 74 63 68 73 74 | "2400/"|.matchst|
|00001550| 72 20 20 33 20 34 31 20 | 22 34 38 30 30 5c 31 33 |r  3 41 |"4800\13|
|00001560| 22 0d 6d 61 74 63 68 73 | 74 72 20 20 34 20 34 31 |".matchs|tr  4 41|
|00001570| 20 22 34 38 30 30 2f 22 | 0d 6d 61 74 63 68 73 74 | "4800/"|.matchst|
|00001580| 72 20 20 35 20 34 32 20 | 22 37 32 30 30 22 0d 6d |r  5 42 |"7200".m|
|00001590| 61 74 63 68 73 74 72 20 | 20 36 20 34 33 20 22 39 |atchstr | 6 43 "9|
|000015a0| 36 30 30 22 0d 6d 61 74 | 63 68 73 74 72 20 20 37 |600".mat|chstr  7|
|000015b0| 20 34 34 20 22 31 32 30 | 30 30 22 0d 6d 61 74 63 | 44 "120|00".matc|
|000015c0| 68 73 74 72 20 20 38 20 | 34 35 20 22 31 34 34 30 |hstr  8 |45 "1440|
|000015d0| 30 22 0d 6d 61 74 63 68 | 73 74 72 20 20 39 20 34 |0".match|str  9 4|
|000015e0| 36 20 22 31 36 38 30 30 | 22 0d 6d 61 74 63 68 73 |6 "16800|".matchs|
|000015f0| 74 72 20 31 30 20 34 37 | 20 22 31 39 32 30 30 22 |tr 10 47| "19200"|
|00001600| 0d 6d 61 74 63 68 73 74 | 72 20 31 31 20 34 38 20 |.matchst|r 11 48 |
|00001610| 22 32 31 36 30 30 22 0d | 6d 61 74 63 68 73 74 72 |"21600".|matchstr|
|00001620| 20 31 32 20 34 39 20 22 | 32 34 30 30 30 22 0d 6d | 12 49 "|24000".m|
|00001630| 61 74 63 68 73 74 72 20 | 31 33 20 35 30 20 22 32 |atchstr |13 50 "2|
|00001640| 36 34 30 30 22 0d 6d 61 | 74 63 68 73 74 72 20 31 |6400".ma|tchstr 1|
|00001650| 34 20 35 31 20 22 32 38 | 38 30 30 22 0d 6d 61 74 |4 51 "28|800".mat|
|00001660| 63 68 73 74 72 20 31 35 | 20 35 32 20 22 33 31 32 |chstr 15| 52 "312|
|00001670| 30 30 22 0d 6d 61 74 63 | 68 73 74 72 20 31 36 20 |00".matc|hstr 16 |
|00001680| 35 33 20 22 33 33 36 30 | 30 22 0d 6d 61 74 63 68 |53 "3360|0".match|
|00001690| 72 65 61 64 20 31 30 0d | 6a 75 6d 70 20 35 39 0d |read 10.|jump 59.|
|000016a0| 21 0d 21 20 2d 2d 20 43 | 6f 6e 6e 65 63 74 69 6f |!.! -- C|onnectio|
|000016b0| 6e 20 72 61 74 65 73 20 | 2d 2d 0d 21 20 43 6f 6d |n rates |--.! Com|
|000016c0| 6d 75 6e 69 63 61 74 69 | 6e 67 41 74 20 69 6e 66 |municati|ngAt inf|
|000016d0| 6f 72 6d 73 20 41 52 41 | 20 6f 66 20 74 68 65 20 |orms ARA| of the |
|000016e0| 72 61 77 20 6d 6f 64 65 | 6d 20 74 6f 20 6d 6f 64 |raw mode|m to mod|
|000016f0| 65 6d 0d 21 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |em.! con|nection |
|00001700| 73 70 65 65 64 2e 0d 21 | 0d 40 4c 41 42 45 4c 20 |speed..!|.@LABEL |
|00001710| 34 30 0d 6e 6f 74 65 20 | 22 43 6f 6d 6d 75 6e 69 |40.note |"Communi|
|00001720| 63 61 74 69 6e 67 20 61 | 74 20 32 34 30 30 20 62 |cating a|t 2400 b|
|00001730| 70 73 2e 22 20 32 0d 43 | 6f 6d 6d 75 6e 69 63 61 |ps." 2.C|ommunica|
|00001740| 74 69 6e 67 41 74 20 32 | 34 30 30 0d 6a 75 6d 70 |tingAt 2|400.jump|
|00001750| 20 36 30 0d 21 0d 40 4c | 41 42 45 4c 20 34 31 0d | 60.!.@L|ABEL 41.|
|00001760| 6e 6f 74 65 20 22 43 6f | 6d 6d 75 6e 69 63 61 74 |note "Co|mmunicat|
|00001770| 69 6e 67 20 61 74 20 34 | 38 30 30 20 62 70 73 2e |ing at 4|800 bps.|
|00001780| 22 20 32 0d 43 6f 6d 6d | 75 6e 69 63 61 74 69 6e |" 2.Comm|unicatin|
|00001790| 67 41 74 20 34 38 30 30 | 0d 6a 75 6d 70 20 36 30 |gAt 4800|.jump 60|
|000017a0| 0d 21 0d 40 4c 41 42 45 | 4c 20 34 32 0d 6e 6f 74 |.!.@LABE|L 42.not|
|000017b0| 65 20 22 43 6f 6d 6d 75 | 6e 69 63 61 74 69 6e 67 |e "Commu|nicating|
|000017c0| 20 61 74 20 37 32 30 30 | 20 62 70 73 2e 22 20 32 | at 7200| bps." 2|
|000017d0| 0d 43 6f 6d 6d 75 6e 69 | 63 61 74 69 6e 67 41 74 |.Communi|catingAt|
|000017e0| 20 37 32 30 30 0d 6a 75 | 6d 70 20 36 30 0d 21 0d | 7200.ju|mp 60.!.|
|000017f0| 40 4c 41 42 45 4c 20 34 | 33 0d 6e 6f 74 65 20 22 |@LABEL 4|3.note "|
|00001800| 43 6f 6d 6d 75 6e 69 63 | 61 74 69 6e 67 20 61 74 |Communic|ating at|
|00001810| 20 39 36 30 30 20 62 70 | 73 2e 22 20 32 0d 43 6f | 9600 bp|s." 2.Co|
|00001820| 6d 6d 75 6e 69 63 61 74 | 69 6e 67 41 74 20 39 36 |mmunicat|ingAt 96|
|00001830| 30 30 0d 6a 75 6d 70 20 | 36 30 0d 21 0d 40 4c 41 |00.jump |60.!.@LA|
|00001840| 42 45 4c 20 34 34 0d 6e | 6f 74 65 20 22 43 6f 6d |BEL 44.n|ote "Com|
|00001850| 6d 75 6e 69 63 61 74 69 | 6e 67 20 61 74 20 31 32 |municati|ng at 12|
|00001860| 34 30 30 20 62 70 73 2e | 22 20 32 0d 43 6f 6d 6d |400 bps.|" 2.Comm|
|00001870| 75 6e 69 63 61 74 69 6e | 67 41 74 20 31 32 34 30 |unicatin|gAt 1240|
|00001880| 30 0d 6a 75 6d 70 20 36 | 30 0d 21 0d 40 4c 41 42 |0.jump 6|0.!.@LAB|
|00001890| 45 4c 20 34 35 0d 6e 6f | 74 65 20 22 43 6f 6d 6d |EL 45.no|te "Comm|
|000018a0| 75 6e 69 63 61 74 69 6e | 67 20 61 74 20 31 34 34 |unicatin|g at 144|
|000018b0| 30 30 20 62 70 73 2e 22 | 20 32 0d 43 6f 6d 6d 75 |00 bps."| 2.Commu|
|000018c0| 6e 69 63 61 74 69 6e 67 | 41 74 20 31 34 34 30 30 |nicating|At 14400|
|000018d0| 0d 6a 75 6d 70 20 36 30 | 0d 21 0d 40 4c 41 42 45 |.jump 60|.!.@LABE|
|000018e0| 4c 20 34 36 0d 6e 6f 74 | 65 20 22 43 6f 6d 6d 75 |L 46.not|e "Commu|
|000018f0| 6e 69 63 61 74 69 6e 67 | 20 61 74 20 31 36 38 30 |nicating| at 1680|
|00001900| 30 20 62 70 73 2e 22 20 | 32 0d 43 6f 6d 6d 75 6e |0 bps." |2.Commun|
|00001910| 69 63 61 74 69 6e 67 41 | 74 20 31 36 38 30 30 0d |icatingA|t 16800.|
|00001920| 6a 75 6d 70 20 36 30 0d | 21 0d 40 4c 41 42 45 4c |jump 60.|!.@LABEL|
|00001930| 20 34 37 0d 6e 6f 74 65 | 20 22 43 6f 6d 6d 75 6e | 47.note| "Commun|
|00001940| 69 63 61 74 69 6e 67 20 | 61 74 20 31 39 32 30 30 |icating |at 19200|
|00001950| 20 62 70 73 2e 22 20 32 | 0d 43 6f 6d 6d 75 6e 69 | bps." 2|.Communi|
|00001960| 63 61 74 69 6e 67 41 74 | 20 31 39 32 30 30 0d 6a |catingAt| 19200.j|
|00001970| 75 6d 70 20 36 30 0d 21 | 0d 40 4c 41 42 45 4c 20 |ump 60.!|.@LABEL |
|00001980| 34 38 0d 6e 6f 74 65 20 | 22 43 6f 6d 6d 75 6e 69 |48.note |"Communi|
|00001990| 63 61 74 69 6e 67 20 61 | 74 20 32 31 36 30 30 20 |cating a|t 21600 |
|000019a0| 62 70 73 2e 22 20 32 0d | 43 6f 6d 6d 75 6e 69 63 |bps." 2.|Communic|
|000019b0| 61 74 69 6e 67 41 74 20 | 32 31 36 30 30 0d 6a 75 |atingAt |21600.ju|
|000019c0| 6d 70 20 36 30 0d 21 0d | 40 4c 41 42 45 4c 20 34 |mp 60.!.|@LABEL 4|
|000019d0| 39 0d 6e 6f 74 65 20 22 | 43 6f 6d 6d 75 6e 69 63 |9.note "|Communic|
|000019e0| 61 74 69 6e 67 20 61 74 | 20 32 34 30 30 30 20 62 |ating at| 24000 b|
|000019f0| 70 73 2e 22 20 32 0d 43 | 6f 6d 6d 75 6e 69 63 61 |ps." 2.C|ommunica|
|00001a00| 74 69 6e 67 41 74 20 32 | 34 30 30 30 0d 6a 75 6d |tingAt 2|4000.jum|
|00001a10| 70 20 36 30 0d 21 0d 40 | 4c 41 42 45 4c 20 35 30 |p 60.!.@|LABEL 50|
|00001a20| 0d 6e 6f 74 65 20 22 43 | 6f 6d 6d 75 6e 69 63 61 |.note "C|ommunica|
|00001a30| 74 69 6e 67 20 61 74 20 | 32 36 34 30 30 20 62 70 |ting at |26400 bp|
|00001a40| 73 2e 22 20 32 0d 43 6f | 6d 6d 75 6e 69 63 61 74 |s." 2.Co|mmunicat|
|00001a50| 69 6e 67 41 74 20 32 36 | 34 30 30 0d 6a 75 6d 70 |ingAt 26|400.jump|
|00001a60| 20 36 30 0d 21 0d 40 4c | 41 42 45 4c 20 35 31 0d | 60.!.@L|ABEL 51.|
|00001a70| 6e 6f 74 65 20 22 43 6f | 6d 6d 75 6e 69 63 61 74 |note "Co|mmunicat|
|00001a80| 69 6e 67 20 61 74 20 32 | 38 38 30 30 20 62 70 73 |ing at 2|8800 bps|
|00001a90| 2e 22 20 32 0d 43 6f 6d | 6d 75 6e 69 63 61 74 69 |." 2.Com|municati|
|00001aa0| 6e 67 41 74 20 32 38 38 | 30 30 0d 6a 75 6d 70 20 |ngAt 288|00.jump |
|00001ab0| 36 30 0d 21 0d 40 4c 41 | 42 45 4c 20 35 32 0d 6e |60.!.@LA|BEL 52.n|
|00001ac0| 6f 74 65 20 22 43 6f 6d | 6d 75 6e 69 63 61 74 69 |ote "Com|municati|
|00001ad0| 6e 67 20 61 74 20 33 31 | 32 30 30 20 62 70 73 2e |ng at 31|200 bps.|
|00001ae0| 22 20 32 0d 43 6f 6d 6d | 75 6e 69 63 61 74 69 6e |" 2.Comm|unicatin|
|00001af0| 67 41 74 20 33 31 32 30 | 30 0d 6a 75 6d 70 20 36 |gAt 3120|0.jump 6|
|00001b00| 30 0d 21 0d 40 4c 41 42 | 45 4c 20 35 33 0d 6e 6f |0.!.@LAB|EL 53.no|
|00001b10| 74 65 20 22 43 6f 6d 6d | 75 6e 69 63 61 74 69 6e |te "Comm|unicatin|
|00001b20| 67 20 61 74 20 33 33 36 | 30 30 20 62 70 73 2e 22 |g at 336|00 bps."|
|00001b30| 20 32 0d 43 6f 6d 6d 75 | 6e 69 63 61 74 69 6e 67 | 2.Commu|nicating|
|00001b40| 41 74 20 33 33 36 30 30 | 0d 6a 75 6d 70 20 36 30 |At 33600|.jump 60|
|00001b50| 0d 21 0d 40 4c 41 42 45 | 4c 20 35 39 0d 6e 6f 74 |.!.@LABE|L 59.not|
|00001b60| 65 20 22 43 6f 6d 6d 75 | 6e 69 63 61 74 69 6e 67 |e "Commu|nicating|
|00001b70| 20 61 74 20 61 6e 20 75 | 6e 6b 6e 6f 77 6e 20 72 | at an u|nknown r|
|00001b80| 61 74 65 2e 22 20 32 0d | 21 0d 40 4c 41 42 45 4c |ate." 2.|!.@LABEL|
|00001b90| 20 36 30 0d 72 65 74 75 | 72 6e 0d 21 0d 21 20 4c | 60.retu|rn.!.! L|
|00001ba0| 6f 6f 6b 20 66 6f 72 20 | 72 65 6c 69 61 62 6c 69 |ook for |reliabli|
|00001bb0| 6c 74 79 20 61 6e 64 20 | 63 6f 6d 70 72 65 73 73 |lty and |compress|
|00001bc0| 69 6f 6e 20 72 65 73 75 | 6c 74 73 20 0d 21 20 61 |ion resu|lts .! a|
|00001bd0| 66 74 65 72 20 74 68 65 | 20 43 4f 4e 4e 45 43 54 |fter the| CONNECT|
|00001be0| 20 72 61 74 65 2e 0d 21 | 0d 40 4c 41 42 45 4c 20 | rate..!|.@LABEL |
|00001bf0| 36 31 0d 6d 61 74 63 68 | 63 6c 72 0d 6d 61 74 63 |61.match|clr.matc|
|00001c00| 68 73 74 72 20 20 31 20 | 36 33 20 22 4c 41 50 4d |hstr  1 |63 "LAPM|
|00001c10| 22 0d 6d 61 74 63 68 73 | 74 72 20 20 32 20 36 33 |".matchs|tr  2 63|
|00001c20| 20 22 52 45 4c 22 0d 6d | 61 74 63 68 73 74 72 20 | "REL".m|atchstr |
|00001c30| 20 33 20 36 33 20 22 41 | 52 51 22 0d 6d 61 74 63 | 3 63 "A|RQ".matc|
|00001c40| 68 73 74 72 20 20 34 20 | 36 38 20 22 43 4f 4d 50 |hstr  4 |68 "COMP|
|00001c50| 2f 22 0d 6d 61 74 63 68 | 73 74 72 20 20 35 20 36 |/".match|str  5 6|
|00001c60| 38 20 22 43 4f 4d 50 5c | 31 33 22 0d 6d 61 74 63 |8 "COMP\|13".matc|
|00001c70| 68 73 74 72 20 20 36 20 | 36 33 20 22 56 34 32 2f |hstr  6 |63 "V42/|
|00001c80| 22 0d 6d 61 74 63 68 73 | 74 72 20 20 37 20 36 33 |".matchs|tr  7 63|
|00001c90| 20 22 56 34 32 5c 31 33 | 22 0d 6d 61 74 63 68 73 | "V42\13|".matchs|
|00001ca0| 74 72 20 20 38 20 36 38 | 20 22 56 34 32 42 49 53 |tr  8 68| "V42BIS|
|00001cb0| 22 0d 6d 61 74 63 68 73 | 74 72 20 20 39 20 36 38 |".matchs|tr  9 68|
|00001cc0| 20 22 56 34 32 62 69 73 | 22 0d 6d 61 74 63 68 73 | "V42bis|".matchs|
|00001cd0| 74 72 20 31 30 20 36 33 | 20 22 4d 4e 50 5c 31 33 |tr 10 63| "MNP\13|
|00001ce0| 22 0d 6d 61 74 63 68 73 | 74 72 20 31 31 20 36 38 |".matchs|tr 11 68|
|00001cf0| 20 22 4d 4e 50 35 22 0d | 6d 61 74 63 68 73 74 72 | "MNP5".|matchstr|
|00001d00| 20 31 32 20 37 30 20 22 | 5c 31 30 22 0d 6d 61 74 | 12 70 "|\10".mat|
|00001d10| 63 68 72 65 61 64 20 31 | 30 0d 6a 75 6d 70 20 37 |chread 1|0.jump 7|
|00001d20| 30 0d 0d 21 20 2d 2d 20 | 4d 6f 64 65 6d 20 65 72 |0..! -- |Modem er|
|00001d30| 72 6f 72 20 63 6f 72 72 | 65 63 74 69 6f 6e 20 6c |ror corr|ection l|
|00001d40| 69 6e 6b 20 6e 65 67 6f | 74 69 61 74 69 6f 6e 20 |ink nego|tiation |
|00001d50| 2d 2d 0d 21 20 55 73 65 | 72 68 6f 6f 6b 20 32 20 |--.! Use|rhook 2 |
|00001d60| 69 6e 66 6f 72 6d 73 20 | 41 52 41 20 74 68 61 74 |informs |ARA that|
|00001d70| 20 61 20 6d 6f 64 65 6d | 2d 74 6f 2d 6d 6f 64 65 | a modem|-to-mode|
|00001d80| 6d 20 65 72 72 6f 72 0d | 21 20 63 6f 72 72 65 63 |m error.|! correc|
|00001d90| 74 69 6e 67 20 70 72 6f | 74 6f 63 6f 6c 20 68 61 |ting pro|tocol ha|
|00001da0| 73 20 62 65 65 6e 20 6e | 65 67 6f 74 69 61 74 65 |s been n|egotiate|
|00001db0| 64 0d 21 0d 21 0d 40 4c | 41 42 45 4c 20 36 32 0d |d.!.!.@L|ABEL 62.|
|00001dc0| 6e 6f 74 65 20 22 4d 6f | 64 65 6d 20 52 65 6c 69 |note "Mo|dem Reli|
|00001dd0| 61 62 6c 65 20 4c 69 6e | 6b 20 45 73 74 61 62 6c |able Lin|k Establ|
|00001de0| 69 73 68 65 64 2e 22 20 | 32 0d 75 73 65 72 68 6f |ished." |2.userho|
|00001df0| 6f 6b 20 32 0d 6a 75 6d | 70 20 33 33 0d 21 0d 40 |ok 2.jum|p 33.!.@|
|00001e00| 4c 41 42 45 4c 20 36 33 | 0d 6e 6f 74 65 20 22 4d |LABEL 63|.note "M|
|00001e10| 6f 64 65 6d 20 52 65 6c | 69 61 62 6c 65 20 4c 69 |odem Rel|iable Li|
|00001e20| 6e 6b 20 45 73 74 61 62 | 6c 69 73 68 65 64 2e 22 |nk Estab|lished."|
|00001e30| 20 32 0d 75 73 65 72 68 | 6f 6f 6b 20 32 0d 6a 75 | 2.userh|ook 2.ju|
|00001e40| 6d 70 20 36 31 0d 21 0d | 21 20 2d 2d 20 43 6f 6d |mp 61.!.|! -- Com|
|00001e50| 70 72 65 73 73 69 6f 6e | 20 6e 65 67 6f 74 69 61 |pression| negotia|
|00001e60| 74 69 6f 6e 20 2d 2d 0d | 21 20 55 73 65 72 68 6f |tion --.|! Userho|
|00001e70| 6f 6b 20 33 20 69 6e 66 | 6f 72 6d 73 20 41 52 41 |ok 3 inf|orms ARA|
|00001e80| 20 74 68 61 74 20 61 20 | 6d 6f 64 65 6d 2d 74 6f | that a |modem-to|
|00001e90| 2d 6d 6f 64 65 6d 20 63 | 6f 6d 70 72 65 73 73 69 |-modem c|ompressi|
|00001ea0| 6f 6e 0d 21 20 70 72 6f | 74 6f 63 6f 6c 20 68 61 |on.! pro|tocol ha|
|00001eb0| 73 20 62 65 65 6e 20 6e | 65 67 6f 74 69 61 74 65 |s been n|egotiate|
|00001ec0| 64 0d 21 0d 40 4c 41 42 | 45 4c 20 36 37 0d 6e 6f |d.!.@LAB|EL 67.no|
|00001ed0| 74 65 20 22 4d 6f 64 65 | 6d 20 43 6f 6d 70 72 65 |te "Mode|m Compre|
|00001ee0| 73 73 69 6f 6e 20 45 73 | 74 61 62 6c 69 73 68 65 |ssion Es|tablishe|
|00001ef0| 64 2e 22 20 32 0d 75 73 | 65 72 68 6f 6f 6b 20 33 |d." 2.us|erhook 3|
|00001f00| 0d 6a 75 6d 70 20 33 33 | 0d 21 0d 40 4c 41 42 45 |.jump 33|.!.@LABE|
|00001f10| 4c 20 36 38 0d 6e 6f 74 | 65 20 22 4d 6f 64 65 6d |L 68.not|e "Modem|
|00001f20| 20 43 6f 6d 70 72 65 73 | 73 69 6f 6e 20 45 73 74 | Compres|sion Est|
|00001f30| 61 62 6c 69 73 68 65 64 | 2e 22 20 32 0d 75 73 65 |ablished|." 2.use|
|00001f40| 72 68 6f 6f 6b 20 33 0d | 6a 75 6d 70 20 36 31 0d |rhook 3.|jump 61.|
|00001f50| 21 0d 21 0d 21 20 2d 2d | 20 4e 6f 72 6d 61 6c 20 |!.!.! --| Normal |
|00001f60| 65 78 69 74 20 61 66 74 | 65 72 20 22 43 4f 4e 4e |exit aft|er "CONN|
|00001f70| 45 43 54 22 20 2d 2d 0d | 21 0d 21 20 20 54 68 69 |ECT" --.|!.!  Thi|
|00001f80| 73 20 6d 6f 64 65 6d 20 | 68 61 73 20 62 65 65 6e |s modem |has been|
|00001f90| 20 73 65 74 75 70 20 74 | 6f 20 64 6f 20 43 54 53 | setup t|o do CTS|
|00001fa0| 20 68 61 6e 64 73 68 61 | 6b 69 6e 67 2c 0d 21 20 | handsha|king,.! |
|00001fb0| 20 61 6e 64 20 77 65 20 | 61 73 73 75 6d 65 20 74 | and we |assume t|
|00001fc0| 68 61 74 20 61 20 43 54 | 53 20 68 61 6e 64 73 68 |hat a CT|S handsh|
|00001fd0| 61 6b 69 6e 67 20 63 61 | 62 6c 65 20 69 73 20 62 |aking ca|ble is b|
|00001fe0| 65 69 6e 67 20 75 73 65 | 64 2e 0d 21 0d 40 4c 41 |eing use|d..!.@LA|
|00001ff0| 42 45 4c 20 37 30 0d 21 | 20 54 75 72 6e 20 6f 6e |BEL 70.!| Turn on|
|00002000| 20 43 54 53 20 68 61 6e | 64 73 68 61 6b 69 6e 67 | CTS han|dshaking|
|00002010| 2e 0d 48 53 52 65 73 65 | 74 20 30 20 31 20 30 20 |..HSRese|t 0 1 0 |
|00002020| 30 20 30 20 30 0d 21 0d | 69 66 41 4e 53 57 45 52 |0 0 0.!.|ifANSWER|
|00002030| 20 37 31 0d 70 61 75 73 | 65 20 33 30 0d 40 4c 41 | 71.paus|e 30.@LA|
|00002040| 42 45 4c 20 37 31 0d 65 | 78 69 74 20 30 0d 21 0d |BEL 71.e|xit 0.!.|
|00002050| 21 0d 21 20 2d 2d 2d 2d | 20 41 6e 73 77 65 72 20 |!.! ----| Answer |
|00002060| 63 61 6c 6c 73 20 2d 2d | 2d 2d 0d 21 0d 21 09 41 |calls --|--.!.!.A|
|00002070| 20 52 49 4e 47 20 72 65 | 73 75 6c 74 20 66 72 6f | RING re|sult fro|
|00002080| 6d 20 74 68 65 20 6d 6f | 64 65 6d 20 61 6e 64 20 |m the mo|dem and |
|00002090| 69 6e 20 41 4e 53 57 45 | 52 49 4e 47 20 6d 6f 64 |in ANSWE|RING mod|
|000020a0| 65 0d 21 09 63 6c 61 69 | 6d 73 20 74 68 65 20 73 |e.!.clai|ms the s|
|000020b0| 65 72 69 61 6c 20 70 6f | 72 74 20 61 6e 64 20 61 |erial po|rt and a|
|000020c0| 6e 73 77 65 72 69 6e 67 | 20 74 68 65 20 70 68 6f |nswering| the pho|
|000020d0| 6e 65 0d 21 0d 40 4c 41 | 42 45 4c 20 38 31 0d 69 |ne.!.@LA|BEL 81.i|
|000020e0| 66 4f 52 49 47 49 4e 41 | 54 45 20 33 32 0d 75 73 |fORIGINA|TE 32.us|
|000020f0| 65 72 68 6f 6f 6b 20 31 | 0d 6e 6f 74 65 20 22 41 |erhook 1|.note "A|
|00002100| 6e 73 77 65 72 69 6e 67 | 20 70 68 6f 6e 65 2e 2e |nswering| phone..|
|00002110| 2e 22 20 32 0d 77 72 69 | 74 65 20 22 41 54 41 5c |." 2.wri|te "ATA\|
|00002120| 31 33 22 0d 6a 75 6d 70 | 20 33 32 0d 21 0d 21 0d |13".jump| 32.!.!.|
|00002130| 21 20 2d 2d 2d 2d 20 48 | 61 6e 67 20 75 70 20 61 |! ---- H|ang up a|
|00002140| 6e 64 20 72 65 73 65 74 | 20 6d 6f 64 65 6d 20 2d |nd reset| modem -|
|00002150| 2d 2d 2d 0d 21 0d 40 48 | 41 4e 47 55 50 0d 40 4c |---.!.@H|ANGUP.@L|
|00002160| 41 42 45 4c 20 39 30 0d | 73 65 74 74 72 69 65 73 |ABEL 90.|settries|
|00002170| 20 30 0d 48 53 52 65 73 | 65 74 20 30 20 30 20 30 | 0.HSRes|et 0 0 0|
|00002180| 20 30 20 30 20 30 0d 21 | 0d 40 4c 41 42 45 4c 20 | 0 0 0.!|.@LABEL |
|00002190| 39 32 0d 21 20 20 45 73 | 63 61 70 65 20 66 72 6f |92.!  Es|cape fro|
|000021a0| 6d 20 64 61 74 61 20 74 | 6f 20 63 6f 6d 6d 61 6e |m data t|o comman|
|000021b0| 64 20 6d 6f 64 65 0d 6d | 61 74 63 68 63 6c 72 0d |d mode.m|atchclr.|
|000021c0| 6d 61 74 63 68 73 74 72 | 20 31 20 39 36 20 22 4f |matchstr| 1 96 "O|
|000021d0| 4b 5c 31 33 5c 31 30 22 | 0d 77 72 69 74 65 20 22 |K\13\10"|.write "|
|000021e0| 2b 2b 2b 22 0d 6d 61 74 | 63 68 72 65 61 64 20 32 |+++".mat|chread 2|
|000021f0| 30 0d 21 0d 40 4c 41 42 | 45 4c 20 39 34 0d 21 20 |0.!.@LAB|EL 94.! |
|00002200| 46 6f 72 63 65 20 61 20 | 68 61 6e 67 75 70 0d 6d |Force a |hangup.m|
|00002210| 61 74 63 68 63 6c 72 0d | 6d 61 74 63 68 73 74 72 |atchclr.|matchstr|
|00002220| 20 31 20 39 38 20 22 4e | 4f 20 43 41 52 52 49 45 | 1 98 "N|O CARRIE|
|00002230| 52 5c 31 33 5c 31 30 22 | 0d 6d 61 74 63 68 73 74 |R\13\10"|.matchst|
|00002240| 72 20 32 20 39 38 20 22 | 4f 4b 5c 31 33 5c 31 30 |r 2 98 "|OK\13\10|
|00002250| 22 0d 6d 61 74 63 68 73 | 74 72 20 33 20 39 38 20 |".matchs|tr 3 98 |
|00002260| 22 45 52 52 4f 52 5c 31 | 33 5c 31 30 22 0d 6d 61 |"ERROR\1|3\10".ma|
|00002270| 74 63 68 73 74 72 20 34 | 20 39 38 20 22 30 5c 31 |tchstr 4| 98 "0\1|
|00002280| 33 5c 31 30 22 0d 77 72 | 69 74 65 20 22 41 54 48 |3\10".wr|ite "ATH|
|00002290| 5c 31 33 22 0d 6d 61 74 | 63 68 72 65 61 64 20 33 |\13".mat|chread 3|
|000022a0| 30 0d 21 20 0d 21 20 54 | 72 79 20 74 6f 20 67 65 |0.! .! T|ry to ge|
|000022b0| 74 20 63 6f 6e 74 72 6f | 6c 20 6f 66 20 74 68 65 |t contro|l of the|
|000022c0| 20 6d 6f 64 65 6d 20 62 | 79 20 74 6f 67 67 6c 69 | modem b|y toggli|
|000022d0| 6e 67 20 44 54 52 0d 44 | 54 52 43 6c 65 61 72 0d |ng DTR.D|TRClear.|
|000022e0| 70 61 75 73 65 20 35 0d | 44 54 52 53 65 74 0d 66 |pause 5.|DTRSet.f|
|000022f0| 6c 75 73 68 0d 21 0d 21 | 20 54 72 79 20 74 68 65 |lush.!.!| Try the|
|00002300| 20 68 61 6e 67 75 70 20 | 73 65 71 75 65 6e 63 65 | hangup |sequence|
|00002310| 20 74 68 72 65 65 20 74 | 69 6d 65 73 20 6f 74 68 | three t|imes oth|
|00002320| 65 72 77 69 73 65 20 64 | 65 63 6c 61 72 65 20 61 |erwise d|eclare a|
|00002330| 6e 64 20 65 72 72 6f 72 | 0d 69 6e 63 74 72 69 65 |nd error|.inctrie|
|00002340| 73 0d 69 66 74 72 69 65 | 73 20 33 20 31 30 31 0d |s.iftrie|s 3 101.|
|00002350| 6a 75 6d 70 20 39 32 0d | 21 0d 40 4c 41 42 45 4c |jump 92.|!.@LABEL|
|00002360| 20 39 36 0d 21 20 50 61 | 75 73 65 20 62 65 74 77 | 96.! Pa|use betw|
|00002370| 65 65 6e 20 64 61 74 61 | 20 61 6e 64 20 63 6f 6d |een data| and com|
|00002380| 6d 61 6e 64 20 6d 6f 64 | 65 0d 70 61 75 73 65 20 |mand mod|e.pause |
|00002390| 35 30 0d 6a 75 6d 70 20 | 39 34 0d 21 0d 21 0d 40 |50.jump |94.!.!.@|
|000023a0| 4c 41 42 45 4c 20 39 38 | 0d 21 20 52 65 63 61 6c |LABEL 98|.! Recal|
|000023b0| 6c 20 74 68 65 20 66 61 | 63 74 6f 72 79 20 73 65 |l the fa|ctory se|
|000023c0| 74 74 69 6e 67 73 0d 70 | 61 75 73 65 20 31 35 0d |ttings.p|ause 15.|
|000023d0| 6d 61 74 63 68 63 6c 72 | 0d 6d 61 74 63 68 73 74 |matchclr|.matchst|
|000023e0| 72 20 31 20 39 39 20 22 | 4f 4b 5c 31 33 5c 31 30 |r 1 99 "|OK\13\10|
|000023f0| 22 0d 77 72 69 74 65 20 | 22 41 54 26 46 31 5c 31 |".write |"AT&F1\1|
|00002400| 33 22 0d 6d 61 74 63 68 | 72 65 61 64 20 33 30 0d |3".match|read 30.|
|00002410| 6a 75 6d 70 20 31 30 31 | 0d 21 0d 40 4c 41 42 45 |jump 101|.!.@LABE|
|00002420| 4c 20 39 39 0d 65 78 69 | 74 20 30 0d 21 0d 21 20 |L 99.exi|t 0.!.! |
|00002430| 2d 2d 2d 2d 20 45 72 72 | 6f 72 20 6d 65 73 73 61 |---- Err|or messa|
|00002440| 67 65 73 20 2d 2d 2d 2d | 2d 0d 21 0d 21 20 4d 6f |ges ----|-.!.! Mo|
|00002450| 64 65 6d 20 4e 6f 74 20 | 52 65 73 70 6f 6e 64 69 |dem Not |Respondi|
|00002460| 6e 67 0d 40 4c 41 42 45 | 4c 20 31 30 31 0d 65 78 |ng.@LABE|L 101.ex|
|00002470| 69 74 20 2d 36 30 31 39 | 0d 21 0d 21 20 4e 6f 20 |it -6019|.!.! No |
|00002480| 44 69 61 6c 20 54 6f 6e | 65 0d 40 4c 41 42 45 4c |Dial Ton|e.@LABEL|
|00002490| 20 31 30 32 0d 65 78 69 | 74 20 2d 36 30 32 30 0d | 102.exi|t -6020.|
|000024a0| 21 0d 21 20 4e 6f 20 43 | 61 72 72 69 65 72 20 6f |!.! No C|arrier o|
|000024b0| 72 20 45 72 72 6f 72 0d | 40 4c 41 42 45 4c 20 31 |r Error.|@LABEL 1|
|000024c0| 30 33 0d 65 78 69 74 20 | 2d 36 30 32 31 0d 21 0d |03.exit |-6021.!.|
|000024d0| 21 20 42 75 73 79 0d 40 | 4c 41 42 45 4c 20 31 30 |! Busy.@|LABEL 10|
|000024e0| 34 0d 65 78 69 74 20 2d | 36 30 32 32 0d 21 0d 21 |4.exit -|6022.!.!|
|000024f0| 20 4e 6f 20 41 6e 73 77 | 65 72 0d 40 4c 41 42 45 | No Answ|er.@LABE|
|00002500| 4c 20 31 30 35 0d 65 78 | 69 74 20 2d 36 30 32 33 |L 105.ex|it -6023|
|00002510| 0d 21 0d 21 20 55 73 65 | 72 20 43 61 6e 63 65 6c |.!.! Use|r Cancel|
|00002520| 6c 61 74 69 6f 6e 0d 40 | 4c 41 42 45 4c 20 31 30 |lation.@|LABEL 10|
|00002530| 37 0d 65 78 69 74 20 2d | 36 30 30 38 00 00 00 00 |7.exit -|6008....|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 01 00 00 00 01 09 | 00 00 00 09 00 00 00 37 |........|.......7|
|00002590| 73 74 72 69 6e 67 20 39 | 20 3d 3d 20 62 6c 61 6e |string 9| == blan|
|000025a0| 6b 20 28 64 69 61 6c 73 | 74 72 69 6e 67 20 69 6e |k (dials|tring in|
|000025b0| 19 50 73 69 6f 6e 20 44 | 61 63 6f 6d 20 47 6f 6c |.Psion D|acom Gol|
|000025c0| 64 20 43 61 72 64 20 56 | 33 34 62 61 6c 20 35 36 |d Card V|34bal 56|
|000025d0| 02 00 6d 6c 74 73 73 6c | 6e 6b 00 00 00 40 01 01 |..mltssl|nk...@..|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 b0 b7 1e 3c 00 00 | 24 bc 00 00 01 40 65 64 |.....<..|$....@ed|
|00002600| 20 74 6f 20 74 68 65 20 | 64 69 61 6c 73 74 72 69 | to the |dialstri|
|00002610| 6e 67 20 74 6f 20 66 6f | 72 63 65 20 74 68 65 20 |ng to fo|rce the |
|00002620| 6d 6f 64 65 6d 20 74 6f | 20 67 65 6e 65 72 61 74 |modem to| generat|
|00002630| 65 20 61 20 64 61 74 61 | 20 74 6f 6e 65 0d 69 66 |e a data| tone.if|
|00002640| 73 74 72 20 38 20 32 37 | 20 22 20 22 0d 69 66 73 |str 8 27| " ".ifs|
|00002650| 74 72 20 39 20 32 34 20 | 22 20 22 0d 21 0d 21 20 |tr 9 24 |" ".!.! |
|00002660| 20 57 72 69 74 65 20 64 | 69 61 6c 73 74 72 69 6e | Write d|ialstrin|
|00002670| 67 20 69 6e 20 76 61 72 | 73 74 72 69 6e 67 73 20 |g in var|strings |
|00002680| 00 00 00 05 01 01 ff ff | ff 00 00 01 00 00 00 01 |........|........|
|00002690| 09 00 00 00 09 00 00 00 | 37 01 09 55 40 18 3e 00 |........|7..U@.>.|
|000026a0| 00 00 1c 00 32 00 00 6d | 6c 74 73 00 00 00 0a 00 |....2..m|lts.....|
|000026b0| 00 00 00 00 00 00 00 01 | 09 54 40 04 6d 6c 74 73 |........|.T@.mlts|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+